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ZTITLE “EDTSWEREAFWD - read the next Line’ 
MODULE EDTSWFREAFWD ( ' Read the next Line 
{DENT = *v04-000' ! File: WEREAFWD.BLI Edit: $1TS1008 


BEGIN 
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ie sett fa (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL oe aS EORPORATION, MAYNARD. MASSACHUSETTS. 
:: ALL RIGHTS RESERVED 


ie rte her i. Pyrat sued UNDER A LICENSE AND MAY BE USED AND gt Lt 
ONLY IN ANCE WITH F N AN THE 


® 
® 
® 
* 
® 
t 
t 
ie IN NY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
it OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S HERESY © 
ie TRANSFERRED. ® 
' * 
is THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
® 
a 
7 
® 
® 
® 
® 
® 


'® SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
ie CORPORA ION. 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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ABSTRACT: 
Read the next Line in the forward direction. 
ENVIRONMENT: Runs at any access mode - AST reentrant 
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04 : AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 
? ; MODIFIED BY: 
44 4 ! 1-001 = Original. DJS 23-Feb-1981. This module ye created by 
45 : enxtroct tng routine EDTSSRD -NXTLN pee a _sodule ‘ 
46 ! 1- 8 - prevner pee the headers -Feb-1 
4 ! 1- - Fix module name. J - ro 
48 ! 1-004 = Change EOB_LINE to cOTSSF FOB. LN. JBS ry | ha 
49 4 ' 1-005 - Correct a Eypo in a subtit JBS 02-Jun-1981 
0 5 ! 1- $ = Change index for Line nuabers from, | to 15. SMB 18-Jan-1982 
1 5 ! 1- = Remove EDTSSSET_WKLN. mes 14 eg oy : 
§ ; : 1-008 = Modify to use new 48 bit macro. STS 01-Oct-1982 
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FACILITY: EDT == The DEC Standard Editor 
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DISKSVMSMASTER:CEDT 


Be 93:25:48 


1b-Sep-19 
10-85-19 


In the routine 


EQUIRE 'EDTSRC: TRAROUNAM' ; 
EDTSSRD_NXTLN; 


ORWARD ROUTINE 


TABLE OF CONTENTS: 
EXTERNAL REFERENCES: 


NONE 
EQUATED SYMBOLS: 
NONE 
STORAGE 
NONE 
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1 ZSBTTL ‘EDTSSRD_NXTLN = read the next Lire’ 


ERT eer nearuo 4 


dT 
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; ‘ GLOBAL ROUTINE EDTSSRD_NXTLN ! Read the next Line 

D4 = 

3 1 

$ 1 !e4¢ 

3 5 ! } FUNCTIONAL DESCRIPTION: 

3 1! Read the next Line in the ag gots fal + Hye The Line following the 
: 38 1! current Line pycomes the new s routine = have the effect 
: 1! of poeding a line from the Lo my file. If we are . ready at the end 
; } ; of the buffer, then return a 0 otherwise return a 1. 

; ! § : FORMAL PARAMETERS: 

9 1! NONE 

; 105 1? 

3 13 : IMPLICIT INPUTS: 

3 H's 1! poTeee.ExITD 

3; 1 1! EDTSS$A_WK_BUK 

: 110 1! EDTS$$G_WK_CURBUK 

; 6111 1! EDTSSA_Wk 

: ig 1! EDT$$Z7_E08_LN 

3 13? ! EDTSS$L_LNOO 

3 HE : H IMPLICIT OUTPUTS: 

; 9 1! EDTSSA_CUR_BUF 

: 118 1! EDTSSA_WK_CN 

; #6119 1! 

; 120 1 ! ROUTINE wat: 

: 121 524 1! 

5.3 § 1! 1 Not at end of buffer 

 % 0695 1! 0 At end of buffer 

: 126 0694 1! 

5 : 5 0695 : ; SIDE EFFECTS: 

: 1 $ pees 1! NONE 

; 128 98 1! 

; 129 99 1 Ie 

3 (CY 00 1 

3 131 701 BEGIN 

eS § 7 § 

ee 7 extras ROUTINE 

ee 7 TSSWF_MAKECUR : NOVALUE, 

; ' 5 706 EDTSS$RD_ILN; 

. 4% 4 exves ” 

; 138 708 DTS$SA_CUR_BUF : REF TBCB_BLOCK, ' fucrent eget buffer control block 
: 139 709 EDTS$67E EXITD, j Gute rere (on if we are exiting) 
3; 140 710 EDTSSA ~tK BUK : .. current bucket 
3 141 711 REF pftoce CwF -BUKT_SIZE, BYTE) FIELD. (ure FIELD 

3 166 ne EDTS$G_W i BUK ' NumBer of "2. current bucket 
: 14 71 EDTSSA~ UKTL : REF LIN_BLOCK, i Pointer to current Line 

3 1446 714 EDT$$2_E “UN: 

: 145 715 EDTS$L_-LNOO : LNOVECTOR (14); 
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H 12 
WFREAFWD = read the next Lin 16-Sep-1984 02:11: VAX-11 Bliss-32 V4.0-7 4 
; D.NXTLN = read the nent Line 19-80-1382 95:31:28 D1 SKSVMSMASTER SLE akb ise WFREAFWD.BLI; rqee (3) 
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EDTSSA_CUR_BUF CTBCB_CHAR_POS) = 0; 
Point to the next Line in the bucket. 


THEN” -EDTSSA_CUR_BUF CTBCB_LINE_ADOR] NEQA .EDTSSA_WK_BUK (CWFB_END]) 


DTSsA CUR BUF CTBCB_ LINE_ADOR] = .EDTSSA_CUR_BUF CTBCB_LINE_ADDR] + .EDTSSA_WK_LN CLIN_LENGTH] + 


ep DT 
LIN_FIRED S12 
ED TstA WK"LN = CHSPTR DTSSA_WK _BUK, .EDTS$A_CUR_BUF CTBCB_LINE_ADDRJ); 


ADDL INE (RUMBER_ONE, Edi $A_CUR_BOF CfecB_CuR_CINJJ; 


i it this is out of the scope of the bucket, then we better read the 
‘ next bucket. 


eg en CTBCB_LINE_ADDR) GEQA .EDTSSA_WK_BUK CWFB_ENDJ) 


if 5 oRD TSCA CWFB_NEXT_BUKT] EQL 0) 
BEGIN 
IF (.EDTS$G_EXITD NEQ 0) 
THEN 

- BEGIN 

Return zero so we don't read any more. 


coTesA. WK _LN = EDT$$Z_E0B_LN; 
AS a (03; 


"end of buffer, try reading the next record. 
RETURN (EDTSS$RD_ILN ()); 
ELSE 
ED TS SuF MAKECUR TSS$A_WK_BUK CwFB NEXT BUKT]); 


(.EDTS 
EDTS$A_CUR_BUF FTBCB- LINE_ADDR] = WEB _FIXED_SIZE; 
Abs CUR-BUF CTBCB-CUR RBUKTI = EDTSSG. WK~ CURBUK ; 


'¢ 
; Update the current Line pointer. 


pores. ens CHSPTR (.EDTSSA_WK_BUK, .EDTSSA_CUR_BUF CTBCB_LINE_ADDR]); 
END; ! of routine EDTSSRD_NXTLN 
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DO tt 
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DT SwF 
v04=0 

DTSSWF_MAKE 

DTSsRO It ILN CUO TSSA CUR_BUF 
DT$$ 16 

DT$$G- 

DT$$ 

DTS$L 


EDTSCOOE, NOWRT, SHR, PIC,2 
$SRD sagine Save R2,R3,R4,R5 
$A_QK R5 

CUR eit RG 
Her K_CN, R3 
$A, CUR “BUF, RO 
$A_WK_BUK, R1 
» SRT) 
WK_LN, Re 
oe 
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0) 
4(R1) 
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2 
ROP OTSSA. WK_LN 
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), 


DT 
DT 
DTS$$ 
DT 
DT 
2( 
DT 
RO 
$ 
DN a 
RO 
(R 
RO 
(R 
$ 
0¢ 
RO 
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(R1) 
DT$$G_EXITD 

DT$$Z_EOB_LN, EDTSS$A_WK_LN 
#0, EDTSSRD_ILN 

2(R1) 


Se oon ses am—am—mmmmmrrmn 8 


sgorssir MAKE CUR 
R_BuF, 


$G_WK_CURBUK, 4(RO) 
$A-CUR_BUF, 
nd, EDTSSA. Wk_BUK, EDTS$A_WK_LN 
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EDTS 
EDTSSRD_NXTLN = read the next Line 12-808- DISKSVMSMASTER: CeoT. sre WFREAFWD.BLI;1 (4) 
; 205 O74 ! END ! of module EDTSWFREAFWD 
: 206 775 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 138 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
H Library Statistics 
3 sonseses ByERO(S Soeersee Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:(EDT.SRCJEDT.L32;1 377 42 11 40 00:00.2 
; _$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
3 COMMAND QUALIFIERS 
: Seca ye Cen er PELD , SME TIAL. .OPT EREEED SUGTRACEOAE AL 5894. 198 1107 REAP UD /ORJ9ORIS 1 REAPS MSRC$:WFREAFWD.BLI/UPDATE=(ENHS:WFRE 
3; Size: 138 code + 0 data bytes 
3; Run Time :13.3 
3; Elapsed Time 0 i¥-§ 
3; Lines/CPU Min: 49 
3; Lexemes/CPU-Min: 1506 


Compit 
; Compilation Complete 
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